The Complete Utilities To…ka 501 Killer Utilities!/501 Killer Utilities! (Macworld July 1995).cdr/Programming/RLaB/rlib/symm.r

Text File | 1994-02-21 | 232 b | 11 lines | [TEXT/RLAB]

//
// SYMM  SYMM(A) is the symmetric (Hermitian) part of A, (A+A')/2.
//       It is the nearest symmetric (Hermitian) matrix to A in both the
//       2- and the Frobenius norms.
//

symm = function( A )
{
  return (A + A')./2;
};